home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Database / BlackBook / Install Black Book < prev    next >
Text File  |  1998-06-24  |  2KB  |  66 lines
  1. (complete 0)
  2.  
  3. ;Check kickver
  4. (if (< (/ (getversion) 65536) 37)
  5.    (abort ("\nYou must have kickstart 2.04+ to run Black Book")
  6.    )
  7. )
  8.  
  9. (set sdir (pathonly @icon))
  10. (set @default-dest "SYS:Tools")
  11. (set #install-msg
  12. (cat "IMPORTANT NOTE\n"
  13.     "The following items are required to run Black Book\n\n"
  14.     "Reqtools © 1991-1994 Nico Françis\n"
  15.     "              1995-1996 Magnus Holmgren\n\n"
  16.     "All rights Reserved\n"
  17.     "\nPlease refer to the Amigaguide© file for futher info."
  18. ))
  19. (set ID_dest (askdir
  20.       (prompt "Where should Black Book be installed?")
  21.       (help "Select a drawer where you want to install Black Book")
  22.       (default @default-dest)
  23.    )
  24. )
  25. (set ans (askbool 
  26.    (
  27.       (prompt "\nDo you want to make a new drawer called Black_Book?  "
  28.                "(Please note that the documentation is the only other "
  29.                "file, and it may be placed elsewhere if you wish)")
  30.          (help "")
  31.       )
  32.    )
  33. )
  34. (if (= 1 ans)
  35.    (
  36.       (makedir (tackon ID_dest "Black_Book") (infos))
  37.       (set ID_dest (tackon ID_dest "Black_Book"))
  38.    )
  39. )
  40.  
  41. (set @default-dest ID_dest)
  42.  
  43. (working ("Copying Black Book"))
  44. (copyfiles
  45.    (source (tackon sdir "Black_Book"))
  46.    (dest ID_dest)
  47.    (help @copyfiles-help)
  48.    (infos)
  49. )
  50. (complete 70)
  51. (set Doc_dest (askdir
  52.       (prompt "Where should Black Book's documentation be installed?")
  53.       (help "Select a drawer where you want to install the docs")
  54.       (default @default-dest)
  55.    )
  56. )
  57. (copyfiles
  58.    (source (tackon sdir "Black_Book.guide"))
  59.    (dest Doc_dest)
  60.    (help @copyfiles-help)
  61.    (infos)
  62. )
  63. (complete 100)
  64. (message #install-msg)
  65. (exit)
  66.